Public Class CBillItem
    Dim _intItemID As Integer
    Dim _strItemName As String
    Dim _intStock As Integer
    Dim _intQuantity As Integer
    Dim _strUnit As String
    Dim _dblPrice As Double
    Dim _dblAmount As Double
    Dim _intCanWait As Integer
    Dim _strRemark As String
    'Declared for Purchase Invoice
    Dim _strBatch As String
    Dim _strPack As String
    Dim _dblTax As Double
    Dim _dtMfgDate As Date
    Dim _dtExpDate As Date
    Dim _intSchemeID As Integer
    Dim _intRecptQnty As Integer
    Dim _dtRecptDate As Date
    Dim _dblMRP As Double
    Dim _dblBillRate As Double

    Public Property ItemID() As Integer
        Get
            Return _intItemID
        End Get
        Set(ByVal value As Integer)
            _intItemID = value
        End Set
    End Property
    Public Property ItemName() As String
        Get
            Return _strItemName
        End Get
        Set(ByVal value As String)
            _strItemName = value
        End Set
    End Property
    Public Property Stock() As Integer
        Get
            Return _intStock
        End Get
        Set(ByVal value As Integer)
            _intStock = value
        End Set
    End Property
    Public Property Quantity() As Integer
        Get
            Return _intQuantity
        End Get
        Set(ByVal value As Integer)
            _intQuantity = value
        End Set
    End Property
    Public Property Unit() As String
        Get
            Return _strUnit
        End Get
        Set(ByVal value As String)
            _strUnit = value
        End Set
    End Property
    Public Property price() As Double
        Get
            Return _dblPrice
        End Get
        Set(ByVal value As Double)
            _dblPrice = value
        End Set
    End Property
    Public Property Amount() As Double
        Get
            Return _dblAmount
        End Get
        Set(ByVal value As Double)
            _dblAmount = value
        End Set
    End Property
    Public Property CanWait() As Integer
        Get
            Return _intCanWait
        End Get
        Set(ByVal value As Integer)
            _intCanWait = value
        End Set
    End Property
    Public Property Remark() As String
        Get
            Return _strRemark
        End Get
        Set(ByVal value As String)
            _strRemark = value
        End Set
    End Property
    'Properties of Purchase Invoice and Delivery challan 
    Public Property batch() As String
        Get
            Return _strBatch
        End Get
        Set(ByVal value As String)
            _strBatch = value
        End Set
    End Property
    Public Property pack() As String
        Get
            Return _strPack
        End Get
        Set(ByVal value As String)
            _strPack = value
        End Set
    End Property
    Public Property tax() As Double
        Get
            Return _dblTax
        End Get
        Set(ByVal value As Double)
            _dblTax = value
        End Set
    End Property

    Public Property SchemeID() As Integer
        Get
            Return _intSchemeID
        End Get
        Set(ByVal value As Integer)
            _intSchemeID = value
        End Set
    End Property
    Public Property MfgDate() As Date
        Get
            Return _dtMfgDate
        End Get
        Set(ByVal value As Date)
            _dtMfgDate = value
        End Set
    End Property
    Public Property ExpDate() As Date
        Get
            Return _dtExpDate
        End Get
        Set(ByVal value As Date)
            _dtExpDate = value
        End Set
    End Property
    Public Property receiptQnty() As Integer
        Get
            Return _intRecptQnty
        End Get
        Set(ByVal value As Integer)
            _intRecptQnty = value
        End Set
    End Property
    Public Property receiptDate() As Date
        Get
            Return _dtRecptDate
        End Get
        Set(ByVal value As Date)
            _dtRecptDate = value
        End Set
    End Property
    Public Property MRP() As Double
        Get
            Return _dblMRP
        End Get
        Set(ByVal value As Double)
            _dblMRP = value
        End Set
    End Property
    Public Property BillRate() As Double
        Get
            Return _dblBillRate
        End Get
        Set(ByVal value As Double)
            _dblBillRate = value
        End Set
    End Property
End Class
